57 REM"[141][147]PROGRAM BY ERIC HAAS 1982"(null) 100 REM *** ERIC HAAS 1982 110 POKE53280,0:POKE53281,0:PRINT"[147]THE STARS AND STRIPES FOREVER" 120 PRINT" BY JOHN PHILIP SOUSA" 125 GOSUB10000 130 POKE54296,15 150 POKE54277,17 160 POKE54278,128 170 READN,D:IFN=-1THENPOKE54296,0:END 175 N=N/2:D=D/1.7 180 HN=INT(N/256):LN=N-HN*256 190 POKE54273,HN:POKE54272,LN 200 POKE54276,33 210 FORI=1TOD:NEXT 220 POKE54276,32 230 GOTO170 240 DATA9634,500,9094,375,9634,125,8101,250,9634,500,10814,250,11457,250 260 DATA12139,250,12860,250,13625,250,14435,250,0,125,7217,500 270 DATA12139,250,0,63,12139,125,12139,250,12139,250,12139,250,0,63,12139,125 280 DATA12860,250,12860,250,10814,125,10207,125,10814,125,12139,125,10814,250 290 DATA9634,250,9094,250,8101,250,9094,250,7217,250,14435,250,0,63,14435,125 300 DATA14435,250,14435,250,14435,250,0,63,14435,125,15294,250,15294,250 310 DATA16203,125,15294,125,16203,125,19269,125,18188,250,16203,250,15294,625 320 DATA15294,125,7217,250,7217,250,0,63,7217,125,9634,250,0,63,8101,125 330 DATA7217,250,6812,250,7217,250,6069,250,5407,250,3608,125,3406,125 340 DATA3608,125,3406,125,3608,125,5407,250,3608,125,3406,125,3608,125 350 DATA3406,125,3608,125,7217,250,0,63,7217,125,9634,250,0,63,8101,125 360 DATA7217,250,6812,250,7217,250,5728,250,5407,250,6812,125,6069,125 370 DATA6812,125,6069,125,6812,250 380 DATA7217,250,0,125,7217,500 390 DATA12139,250,0,63,12139,125,12139,250,12139,250,12139,250,0,63,12139,125 400 DATA12860,250,12860,250,10814,125,10207,125,10814,125,12139,125,10814,250 410 DATA9634,250,9094,250,8101,250,9094,250,7217,250,14435,250,0,63,14435,125 420 DATA14435,250,14435,250,14435,250,0,63,14435,125,15294,250,15294,250 430 DATA16203,125,15294,125,16203,125,19269,125,18188,250,16203,250,15294,625 440 DATA15294,125,7217,250,7217,250,0,63,7217,125,9634,250,0,63,8101,125 450 DATA7217,250,6812,250,7217,250,6069,250,5407,250,3608,125,3406,125 460 DATA3608,125,3406,125,3608,125,5407,250,3608,125,3406,125,3608,125 470 DATA3406,125,3608,125,7217,250,0,63,7217,125,9634,250,0,63,8101,125 480 DATA7217,250,6812,250,7217,250,5728,250,5407,250,6812,125,6069,125 490 DATA6812,125,6069,125,6812,250 500 DATA7217,250,0,125,7217,375,6430,125 510 DATA6069,500,8101,375,7217,125,4547,500,4050,500,3608,500,6430,500 520 DATA6069,500,5407,375,6069,125,6430,250,8101,500,9634,250,10814,500,9634,500 530 DATA6069,1000,5407,500,7217,375,6430,125,6069,500,8101,375 540 DATA7217,250,4547,500,4050,500,3608,500,6430,500,6069,500,5407,375 550 DATA6069,125,6430,250,8101,250,10814,375,9634,125,6069,250,7217,250 560 DATA4817,375,6069,125,5407,1000 570 DATA4817,250,0,125,7217,375,6430,125 580 DATA6069,500,8101,375,7217,125,4547,500,4050,500,3608,500,6430,500 590 DATA6069,500,5407,375,6069,125,6430,250,8101,500,9634,250,10814,500,9634,500 600 DATA6069,1000,5407,500,7217,375,6430,125,6069,500,8101,375 610 DATA7217,250,4547,500,4050,500,3608,500,6430,500,6069,500,5407,375 620 DATA6069,125,6430,250,8101,250,10814,375,9634,125,6069,250,7217,250 630 DATA4817,375,6069,125,5407,1000 640 DATA4817,250,0,125,9634,500 650 DATA9634,500,8583,250,8101,250,8101,500,7647,250,8101,250,8101,1500 660 DATA7647,250,8101,250,8101,500,7647,250,8101,250,9634,500,8101,375 670 DATA9634,125,8583,1000,7217,500,7217,500,7217,500,6812,250,7217,250 680 DATA7217,500,6812,250,7217,500,8583,1500,8101,250,7217,250,8101,250 690 DATA9634,750,10814,750,10814,250,7217,1500,9634,500,9634,500,8583,250,8101,250 700 DATA8101,500,7647,250,8101,250,8101,1500,7647,250,8101,250,8101,500 710 DATA7647,250,8101,250,8583,250,8101,250,7217,375,6069,125,7217,1000 720 DATA6430,500,6430,500,6430,500,6069,250,6430,250,7647,500,7217,250 730 DATA6430,250,12860,1250,6430,250,7217,250,8101,250,9634,250,6430,250 740 DATA7217,250,8101,250,9634,250,4817,250,5407,250,8101,250 750 DATA7217,1000,6430,250,0,250 760 DATA6430,250,6430,250,6430,250,6069,250,6069,250,5407,250,5407,250 770 DATA5103,250,10814,250,10207,250,5407,250,5103,250,10814,250,12139,250 775 DATA10207,500,8101,250,8101,250,8101,250 780 DATA7217,250,7217,250,6430,250,6430,250,6069,250,12860,250,12139,250 790 DATA6430,250,6069,250,12860,250,14435,250,12139,500,4817,125,6069,125 800 DATA7217,125,8583,125,10207,375,10207,125,10207,250,10207,250,10207,250 810 DATA9634,250,9094,250,8583,250,8101,250,7647,250,7217,250,6812,250 820 DATA6430,250,5728,250,5407,125,6812,125,8101,125,9634,125,11457,375 830 DATA11457,125,11457,250,11457,250,11457,250,10814,250,10207,250 840 DATA9634,250,9094,250,8583,250,8101,250,7647,250,7217,250,6430,250 850 DATA6430,250,6069,125,7217,125,9634,125,12139,125 860 DATA14435,250,7217,125,7217,250,7217,250,7217,250,7217,250,6069,125 870 DATA7217,125,9634,125,12139,125 880 DATA14435,250,7217,125,7217,250,7217,250,7217,250,7217,250,6069,125 890 DATA7217,125,9634,125,12139,125 900 DATA14435,375,14435,125,13625,375,13625,125,12860,375,12860,125,12139,375 910 DATA12139,125,11457,375,11457,125,10814,375,10814,125,10207,250,9634,250 920 DATA10814,250,9634,250 930 DATA9634,500,8583,250,8101,250,8101,500,7647,250,8101,250,8101,1500 940 DATA7647,250,8101,250,8101,500,7647,250,8101,250,9634,500,8101,375 950 DATA9634,125,8583,1000,7217,500,7217,500,7217,500,6812,250,7217,250 960 DATA7217,500,6812,250,7217,500,8583,1500,8101,250,7217,250,8101,250 970 DATA9634,750,10814,750,10814,250,7217,1500,9634,500,9634,500,8583,250,8101,250 1000 DATA8101,500,7647,250,8101,250,8101,1500,7647,250,8101,250,8101,500 1010 DATA7647,250,8101,250,8583,250,8101,250,7217,375,6069,125,7217,1000 1020 DATA6430,500,6430,500,6430,500,6069,250,6430,250,7647,500,7217,250 1030 DATA6430,250,12860,1250,6430,250,7217,250,8101,250,9634,250,6430,250 1040 DATA7217,250,8101,250,9634,250,4817,250,5407,250,8101,250 1050 DATA7217,1000,6430,250 1060 DATA-1,-1 10000 PRINT"[149]   " 10010 PRINT"[149]   " 10020 PRINT"[149]   " 10030 PRINT"[149]   " 10040 PRINT"[149]  " 10050 PRINT"[149]  " 10060 PRINT"[149]  " 10070 PRINT"[149]  " 10080 PRINT"[149]  " 10090 PRINT"[149] " 10100 PRINT"[149] " 10110 PRINT"[149] " 10120 PRINT"[149] " 10130 PRINT"[149] " 10140 PRINT"[149] " 10150 PRINT"[149] " 10160 RETURN